\ apple ii knick knacks

include sixtyfive.fs
include types.fs
include prodosfs.fs

data-segment 5.25floppy new-segment constant disk
disk switch-segment

\ empty boot blocks
$400 torg

pdir-first
pentry constant disk.volume
pentry constant disk.view40
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
punused

pdir-middle
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
punused

pdir-middle
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
punused

pdir-last
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
pentry drop
punused

5.25floppy pbitmap constant disk.bitmap

5.25floppy disk.volume pvolume-init
s" CURIOS" disk.volume pentry-name!

: store-file ( imagename hostname filetype auxtype pfile -- ) >r
  disk.volume r@ pfile-init
              r@ pfile-type
  2swap       r@ pentry-name!
              r> pfile-host ;

s" VIEW40" s" VIEW40" $06 $0300 disk.view40 store-file

disk.volume disk.bitmap pbitmap-write

5.25floppy torg

s" curios.po" w/o bin create-file throw
dup disk write-segment
close-file throw

cr .s
cr bye

